home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / UTILSTEM / HACKROM.LZH / HDAT.BAS < prev    next >
BASIC Source File  |  1987-05-13  |  2KB  |  47 lines
  1. 10  PRINT "Which Roms do you have:"
  2. 20  PRINT "(1) Phoenix AT (2)Taiwanese AT (3)IBM AT  (4) PHOENIX 386"
  3. 30  INPUT "Enter Choice: ",RT%
  4. 40 IF RT%=0 THEN 30
  5. 50  IF RT% = 1 THEN LO = 58881!: REM all others start at $E501
  6. 60 LO = 58625!:
  7. 70 PRINT:PRINT
  8. 80 PRINT "Which Drive Type would you want it to be =1..14,16-47"
  9. 90 INPUT "Drive type 1..14,16-23 already defined by IBM. Enter Type:",T%
  10. 100 IF (T%=15) OR (T%>47) OR (T% <1) GOTO 70
  11. 110 ZZ = LO+16*(T%-1)
  12. 120 LO$=HEX$(ZZ)
  13. 130 INPUT "Number of Cylinders:",C$
  14. 140 INPUT "Number of Heads:",H$
  15. 150 INPUT "Write Precomp Cylinder * for NONE:",W$
  16. 160 INPUT "Landing Zone:",L$
  17. 170 INPUT "Number of Sectors per track:(17):",S$
  18. 180 IF S$="" THEN S$="17"
  19. 190 C%=VAL(C$):H%=VAL(H$):L%=VAL(L$):S%=VAL(S$)
  20. 200 IF INSTR(W$,"*") =0 THEN W=VAL(W$) ELSE W=65535!
  21. 210 PRINT HEX$(C%),HEX$(H%),HEX$(W),HEX$(L%),HEX$(S%)
  22. 220 OPEN "drv.dbg" FOR OUTPUT AS #1
  23. 230 PRINT #1,"EW "+LO$"+0 "+HEX$(C%)
  24. 240 PRINT #1,"Eb "+LO$"+2 "+HEX$(H%)
  25. 250 PRINT #1,"EW "+LO$"+5 "+HEX$(W)
  26. 260 PRINT #1,"EW "+LO$"+c "+HEX$(L%)
  27. 270 PRINT #1,"Eb "+LO$"+e "+HEX$(S%)
  28. 280 PRINT #1,"W"
  29. 290 PRINT #1,"Q"
  30. 300 CLOSE #1
  31. 301 PRINT:PRINT"Type the commands that are in UPPERCASE in DOS,COPY THEM DOWN"
  32. 310 IF RT% <3 THEN PRINT "A>2CHIP"
  33. 320 IF RT% >=3 THEN PRINT"A>ROMSAVAT"
  34. 330 PRINT"A>SYMDEB ATROM <DRV.DBG"
  35. 340 PRINT"A>CHKSUM ATROM TEMP"
  36. 350 PRINT"A>ROMSPLIT"
  37. 360 IF RT% >=3 THEN PRINT"If you are using 27256 eproms stop here and burn tempevn & tempodd"
  38. 370 IF RT% <3 THEN PRINT"You Can now burn in TEMPEVN and TEMPODD into 27128s"
  39. 371 IF RT% <3 THEN INPUT "Do you have a BABY AT:",A$:IF A$="y" THEN PRINT "A>2ROMS":GOTO 500
  40. 380 PRINT:PRINT"The next part is only for those with 27128 eproms"
  41. 390 PRINT"A>LSPLIT 16384 tempevn"
  42. 400 PRINT"rename f0 ef0, rename f1 ef1"
  43. 410 PRINT"A>LSPLIT 16384 tempodd"
  44. 420 PRINT"rename f0 of0, rename f1 of1"
  45. 430 PRINT"You Can now burn The files  EF0 EF1 OF0 OF1 into 4 eproms"
  46. 500 SYSTEM
  47.